home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Personal Press 2.0 / PPPouch / Additions / Select Objects With… / Same Shadow Offset / Same Shadow Offset next >
Text File  |  1992-06-08  |  561b  |  27 lines
  1. on startup
  2. if number of items in selectedObjects() < 1 then
  3. answer "Select an object to base Shadow Offset selections."
  4. exit startup
  5. end if
  6.  
  7.  
  8. put shadowOffset of object (item 1 of selectedObjects())into theValue
  9. select objects where shadowOffset of this object is theValue
  10. end startup
  11.  
  12.  
  13. on help
  14. put  dialog (preload, 128) into thedialog
  15. put "---a\0" into item2
  16. put "---a\1" into item3
  17. put "---a\2" into item4
  18.  
  19.  
  20. repeat forever
  21. get dialog(display, thedialog)
  22. if (it = 1) then exit repeat
  23. end repeat
  24. get dialog(dispose, thedialog)
  25. end help
  26.  
  27.     j<BÏ